Chip 2002 July/07_02.iso/bonus/freesoft/files/uzsetup.exe/{app}/uzip.exe/0/RCDATA/TFRMARC2ARC/TFRMARC2ARC.txt

Text File | 2002-05-23 | 6.2 KB | 313 lines

object frmArc2Arc: TfrmArc2Arc
  Left = 337
  Top = 242
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'UltimateZip Archive Converter'
  ClientHeight = 383
  ClientWidth = 434
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object imgLed: TImage
    Left = 625
    Top = 447
    Width = 10
    Height = 10
    AutoSize = True
    Center = True
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object Label1: TLabel
    Left = 25
    Top = 12
    Width = 76
    Height = 13
    Alignment = taRightJustify
    Caption = '&Input ArciveFile:'
    FocusControl = Edit1
    WordWrap = True
  end
  object Label2: TLabel
    Left = 19
    Top = 44
    Width = 90
    Height = 13
    Alignment = taRightJustify
    Caption = '&Output ArchiveFile:'
    FocusControl = Edit2
  end
  object Label3: TLabel
    Left = 44
    Top = 140
    Width = 65
    Height = 13
    Caption = '&DateAttribute:'
    FocusControl = ComboBox1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 70
    Top = 108
    Width = 39
    Height = 13
    Caption = '&Method:'
    FocusControl = cboMethod
  end
  object Label5: TLabel
    Left = 8
    Top = 76
    Width = 101
    Height = 13
    Caption = 'Output Archive &Type:'
    FocusControl = cboType
  end
  object pbxLed: TPaintBox
    Left = 388
    Top = 80
    Width = 17
    Height = 25
    Hint = 'Click when red to cancel operation'
    ParentShowHint = False
    ShowHint = True
    Visible = False
    OnClick = pbxLedClick
    OnPaint = pbxLedPaint
  end
  object Label6: TLabel
    Left = 8
    Top = 176
    Width = 21
    Height = 13
    Caption = 'Log:'
  end
  object Edit1: TEdit
    Left = 120
    Top = 8
    Width = 189
    Height = 21
    AutoSize = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    OnChange = EditChange
  end
  object BitBtn1: TBitBtn
    Left = 316
    Top = 8
    Width = 21
    Height = 21
    Caption = '...'
    ParentShowHint = False
    ShowHint = False
    TabOrder = 1
    TabStop = False
    OnClick = BitBtn1Click
    NumGlyphs = 2
  end
  object Edit2: TEdit
    Left = 120
    Top = 40
    Width = 189
    Height = 21
    AutoSize = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 2
    OnChange = EditChange
  end
  object btnSelectDir: TBitBtn
    Left = 316
    Top = 39
    Width = 21
    Height = 21
    Caption = '...'
    ParentShowHint = False
    ShowHint = False
    TabOrder = 3
    TabStop = False
    OnClick = btnSelectDirClick
    NumGlyphs = 2
  end
  object btnOK: TBitBtn
    Left = 349
    Top = 8
    Width = 76
    Height = 25
    Caption = 'OK'
    Enabled = False
    TabOrder = 8
    OnClick = btnOKClick
    NumGlyphs = 2
  end
  object CheckBox1: TCheckBox
    Left = 120
    Top = 166
    Width = 93
    Height = 17
    Caption = 'Inte&grity Check'
    Checked = True
    State = cbChecked
    TabOrder = 7
  end
  object btnClose: TBitBtn
    Left = 349
    Top = 71
    Width = 75
    Height = 25
    Caption = '&Close'
    TabOrder = 10
    OnClick = Exit1Click
    NumGlyphs = 2
  end
  object ComboBox1: TComboBox
    Left = 120
    Top = 136
    Width = 217
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 6
    Items.Strings = (
      'FileDate'
      'SystemDate'
      'MaxFileDate')
  end
  object ListBox1: TListBox
    Left = 8
    Top = 192
    Width = 417
    Height = 137
    TabStop = False
    ItemHeight = 13
    TabOrder = 11
  end
  object cboMethod: TComboBox
    Left = 120
    Top = 104
    Width = 217
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 5
    Items.Strings = (
      'Create new Archive'
      'Add Files')
  end
  object cboType: TComboBox
    Left = 120
    Top = 72
    Width = 217
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 4
    OnChange = cboTypeChange
    Items.Strings = (
      'BlakHole (.bh)'
      'Cabinet (.cab)'
      'Lha (.lha)'
      'Zip (.zip)'
      'Tar (.tar)'
      'Tar Gzip (.tar.gz)'
      'Jar (.jar)')
  end
  object ProgressBar2: TProgressBar
    Left = 8
    Top = 352
    Width = 417
    Height = 9
    Min = 0
    Max = 100
    Smooth = True
    Step = 1
    TabOrder = 12
  end
  object ProgressBar1: TProgressBar
    Left = 8
    Top = 336
    Width = 417
    Height = 9
    Min = 0
    Max = 100
    Smooth = True
    Step = 1
    TabOrder = 13
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 364
    Width = 434
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object btnCancel: TButton
    Left = 349
    Top = 40
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    Enabled = False
    TabOrder = 9
    OnClick = btnCancelClick
  end
  object OpenDialog1: TOpenDialog
    Left = 20
    Top = 205
  end
  object Arc2Arc1: TArc2Arc
    OnError = Arc2Arc1Error
    OutArcType = tyBh
    OnExtractActivate = Arc2Arc1ExtractActivate
    OnExtractDeactivate = Arc2Arc1ExtractDeactivate
    OnExtractBegin = Arc2Arc1ExtractBegin
    OnExtractEnd = Arc2Arc1ExtractEnd
    OnCompressActivate = Arc2Arc1CompressActivate
    OnCompressDeactivate = Arc2Arc1CompressDeactivate
    OnCompressBegin = Arc2Arc1CompressBegin
    OnCompressEnd = Arc2Arc1CompressEnd
    OnIntegrityActivate = Arc2Arc1IntegrityActivate
    OnIntegrityDeactivate = Arc2Arc1IntegrityDeactivate
    OnIntegrityBegin = Arc2Arc1IntegrityBegin
    OnIntegrityStatus = Arc2Arc1IntegrityStatus
    OnFileExists = Arc2Arc1FileExists
    OnProgress = Arc2Arc1Progress
    OnGetPassword = Arc2Arc1GetPassword
    OnNextVolume = Arc2Arc1NextVolume
    OnRemoveTempfile = Arc2Arc1RemoveTempfile
    Left = 89
    Top = 211
  end
  object BrowseDir: TdfsBrowseDirectoryDlg
    StatusText = 'C:\WINDOWS\Desktop'
    ShowSelectionInStatus = True
    Left = 56
    Top = 208
  end
  object FormCenter1: TFormCenter
    Center = True
    Left = 240
    Top = 200
  end
end